home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / gdsdemo.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.3 KB  |  35 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. //---------------------------------------------------------------------------
  9. USEFILE("readme.txt");
  10. USEFORM("Gdsstd.cpp", GDSStdForm);
  11. USEFORM("GdsData.cpp", StdDataForm);
  12. USEFORM("GridForm.cpp", GridViewForm);
  13. USEFORM("RecForm.cpp", RecViewForm);
  14. USERES("gdsdemo.res");
  15. //---------------------------------------------------------------------
  16. #pragma resource "*.res"
  17. #pragma link "forms.obj"
  18. //---------------------------------------------------------------------------
  19. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  20. {
  21.    try
  22.    {
  23.         Application->Initialize();
  24.         Application->CreateForm(__classid(TGridViewForm), &GridViewForm);
  25.         Application->CreateForm(__classid(TRecViewForm), &RecViewForm);
  26.         Application->Run();
  27.    }
  28.    catch (Exception &exception)
  29.    {
  30.         Application->ShowException(&exception);
  31.    }
  32.         return 0;
  33. }
  34. //---------------------------------------------------------------------------
  35.